;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
(DEFUN hatpat (pat / )
  (IF c:svlayr NIL (LOAD "mklayr" "\nFile MKLAYR.LSP not loaded! "))
  (c:svlayr)
  (load "dimscl" "\nFile DIMSCL.LSP not loaded! ")
  (dimscl)
  (IF make_layer_ent NIL (LOAD "make_layer_ent" "\nFile MAKE-LAYER-ENT.LSP not loaded! "))
  (make_layer_ent (LIST (CONS 8 "C-CONC1PATT")))
  (setvar "hpang" 0.785398)
  (setvar "hpname" pat)
  (setvar "hpscale" (/ dimsc 32.0))
  (COMMAND ".bhatch")
  (c:rslayr)
  (IF (WCMATCH (CDR (ASSOC 0 (SETQ hatch-ent (ENTGET (ENTLAST))))) "HATCH")
    (PROGN
      (COND ((WCMATCH (STRCASE pat) "AR-CONC")
             (SETQ prod "CONC"))
      )
      (SETQ hatch-ent
             (SUBST
               (CONS 8 (STRCAT "C-" prod "1PATT"))
               (ASSOC 8 hatch-ent)
               hatch-ent
             )
      )
      (ENTMOD hatch-ent)
    )
  )
  (PRINC)
)